home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
016a
/
love4th.zip
/
PROMPT90.TXT
< prev
next >
Wrap
Text File
|
1991-10-01
|
922b
|
31 lines
( file prompt90.txt )
( Created: Sun 03-18-1990 12:39:16 )
( Last Modified: Sun 03-18-1990 13:08:00 )
( by Peter Cavén )
( Copyright 1990 By Homer Seywerd, Wolodymyr R. Elehew, and Peter Cavén )
( a redefinition of PROMPT to provide more information during development )
( and testing. )
( This is an example source file included with L.O.V.E. Forth. )
( At the Ok prompt in L.O.V.E. Forth, type INCLUDE" PROMPT90.TXT" )
: newprompt ( -- )
." <"
base @
case 2 of ." %" endof ( if base 2 indicate with '%' )
16 of ." $" endof ( if base 16 indicate with '$' )
dup 10 <>
if ." ?" ( any other base indicate with '?' )
then
endcase
depth base @
10 base !
swap 0 0 d.r
base !
." > Ok" ;
redefine prompt newprompt